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IN ISSUE 3 

This issue of The KAMAS Report contains 
news about the latest versions of KAMAS; a 
major application that increases the Outline 
Processing features of KAMAS; a rewritten 
KAMASBBS that works with a wider range of 
Hayes compatible modems including the U.S. 
Robotics Password and the Anchor Signalman 
Mark XII; and a variety of tips and 
techniques from the support line. So, let's 
get right to it without further delay. 
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NEW VERSIONS AVAILABLE 

We've been very busy since the last 
newsletter releasing pre-configured 
versions of KAMAS for three more machines 
and an improved Version 1.1 for all the 
machines that we support. 



New Machines Added 

The KAMAS system is now available for the 
Osborne 1 with the double density upgrade; 
the Big Board I using on-board video and the 
June 19, 1983 SWP double density upgrade; 
and the Big Board 2 using on-board video. 

The Osborne version does not support any of 
the telecommunications features of KAMAS 
i.e., the Osborne version will not run 



KAMASBBS. The Big Board computers are kit 
computers that are similar to the Kaypro; 
both Big Board versions are distributed on 8" 
single sided, single density format. The 
Osborne version is distributed on an 
Osborne double density formatted, 5-1/4" 
diskette. 

We are working on versions for new 
machines based on demand. And the demand 
has been high since the Infoworld review 
(Oct. 8, 1984) and the Byte coverage (Sept., 
1984). We'll keep you informed about new 
preconfigured versions as they are made 
available. 



Version 1.1 Now Ready 

We have been shipping Version l.lx since 
September 11, 1984. The new version 
includes corrections to bugs as well as 
enhancements based on your suggestions. 
Those of you with Version l.Ox will 
probably want to upgrade to the new 
version. The ordering instructions follow 
the list of changes. 



Corrections 

The following bugs are corrected in Version 
l.lx of KAMAS. The first three bugs were 
actually corrected before Version 1.1, but 
they are listed here for completeness. 
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Correction 1 

PROBLEM: The OWNERS command and the 
TO (Topic Owners) option in ROVE mode fail 
to set a status flag that is required for 
editing an outline. Thus, a subsequent 
OUTLINE command or EO (Edit Outline) 
option in ROVE mode causes an 
unrecoverable TREELOST abend. 

CORRECTION: This problem was caught near 

the end of May and was corrected in all 
units shipped since then. A letter was sent 
to all of you who had a unit with this 
problem explaining how to avoid the 
problem and how to correct it. The problem 
is corrected in Version l.lx also. 

Correction 2 

PROBLEM: If you try to prepare a new topic 
(with the TP option in ROVE mode or the 
TPREP command) on a full disk, you get a 
DISKFULL abend. In some cases, a CP/M 
directory entry is created for the topic even 
though the topic itself could not be 
created. Later, when you try to list the 
topics with the TT option in ROVE mode or 
the TOPICS command, the topic entry in the 
directory causes a TREELOST abend. In 
this case, you can recover from the 
TREELOST abend. 

CORRECTION: If you have run into this 
problem, you can clean house by using the 
CP/M ERA command to erase the incorrect 
directory entry. The file (there may be 
more than one) to erase has a size of 0 and an 
extension of .TOP. Once the bad directory 
entries are erased, you can list topics in 
KAMAS without any problem. The problem 
was corrected in all units shipped after July 
and is in Version l.lx. 

Correction 3 

PROBLEM: Jexing (Job Execution) can not be 
started in a command assigned to USERGO 
and later executed via the U (USER) option 
in ROVE mode. 

CORRECTION: This problem was corrected 
in all units shipped after July and is in 
Version l.lx. 



Correction 4 

PROBLEM: If a DUP KEY abend occurs during 
an insert option in ROVE mode (ID, IN, or IU) 
and you enter another key that is accepted, 
the new key is inserted relative to the 
duplicate key rather that at the intended 
location. 

CORRECTION: This problem is corrected in 
Version l.lx. 



Correction 5 

PROBLEM: The Page and Hide format marks 
are not obeyed during the OO (Output 
Outline) option in ROVE mode and the 
PRINTO command. 

CORRECTION: This problem is corrected in 
Version l.lx. 



Correction 6 

PROBLEM: It is possible to create a full leaf 
(2420 characters) that cannot be read back in 
later by the leaf editor. When attempting 
to edit the leaf, you get a TREELOST abend 
that you can recover from. The same 
problem can be caused if you get a 
TOODENSE abend while saving a leaf. This 
problem can also cause a "phantom" 
character to appear as the last character in 
the leaf. The phantom cannot be deleted. 

CORRECTION: This problem is corrected in 
Version l.lx. 



Correction 7 

PROBLEM: The OF (Output File) option in 
ROVE mode allows a lowercased CP/M 
filename to be created. A lowercased 
filename cannot be properly accessed by 
CP/M utilities. 

CORRECTION: This problem is corrected in 
Version l.lx by always uppercasing the 
filename that you specify for the OF 
option. 
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Correction 8 

PROBLEM: Pressing the RETURN key at the 
topic name prompt for the TP (Topic 
Prepare), TM (Topic Mount), TB (Topic 
Build), and TK (Topic Kill) options in ROVE 
mode creates a null topic name and causes a 
TREELOST abend that you can recover 
from. 

CORRECTION: This problem is corrected in 
Version l.lx. 

Correction 9 

PROBLEM: You can edit the top key in a 
topic changing the topic name so that it is 
the same as another topic on the same disk. 
The duplicate file names would then 
prevent one of the topics from being 
mounted later. 

CORRECTION: This problem is corrected in 
Version l.lx by issuing the DUP TOPIC 
abend if you attempt to rename a topic to be 
the same as another topic on the same disk. 

Correction 10 

PROBLEM: If you enter the leaf editor and 
copy a region and then exit, the editor 
incorrectly prompts you "Abandon Modified 
Leaf?". This prompt is in error, since the 
leaf is not modified by the copy region 
command. You can actually type Y to the 
prompt without losing any data. If you 
save the leaf first, no data is lost either. 

CORRECTION: This problem is corrected in 
Version l.lx. 



left margin. This feature allows centering 
titles over leaf text by indenting the left 
margin. Titles obey the indented left 
margin but the leafs ignore it unless they 
are marked left justified. 

VERSION l.lx: Now, the left margin is 
always obeyed by leafs during formatted 
output making tables and Jex leafs easier to 
print. 

Enhancement 2 

VERSION l.Ox: To abort KAMASBBS, you 
have to type CTRL-C on the local keyboard 
during any remote console activity. If 
there is no remote console activity, you 
must reset the computer to abort 
KAMASBBS. Also, in local operations, 
CTRL-C responds only during console 
activity. 

VERSION l.lx: Now, remote operation and 
local operations respond to CTRL-C even 
when there is no console activity. For 
example, KAMAS can now be aborted with 
CTRL-C during long searches like the QC 
(Query Context) option or the LS (Lookup 
String) option. In KAMASBBS, loss of 
carrier during a long search operation now 
causes the Bulletin Board to discontinue the 
search and recycle. 

Enhancement 3 

VERSION l.Ox: If an application is assigned 
to the U (User) option in ROVE mode, it can 
be executed by remote users through 
KAMASBBS. However, if an abend occurs 
during the application, it throws remote 
users into the language environment. 



Enhancements 

The following enhancements have been 
added to Version l.lx based on your 
comments and suggestions. 

Enhancement 1 

VERSION l.Ox: During formatted output 
commands such as the OP (Output Print) 
option in ROVE mode, verbatim leafs that do 
not have any format marks do not obey the 



VERSION l.lx: When abends occur during 
local or remote operation of the U option, 
KAMAS always returns to ROVE mode. Now, 
any abend during remote operation in ROVE 
mode returns to ROVE mode. In local 
operation, any abend during ROVE mode 
except during explicit Jexing (GJ option) 
returns to ROVE mode. Abends during 
explicit Jexing in local operation return to 
the language environment. You can cause 
Jex abends to return to ROVE by starting the 
Jex within the U(User) option. 
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Enhancement 4 



How to Order 



VERSION l.Ox: REMOTEGO is only executed 
during character receives. This can lead to 
a long period before KAMASBBS 
acknowledges loss of carrier. 

VERSION l.lx: REMOTEGO is executed 
during character receives and transmits. 

Enhancement 5 

VERSION l.Ox: The KAMASBBS software 
works only with the Hayes Smartmodem 1200 
or close compatibles. It will NOT work 
with either the U.S. Robotics Password or the 
Anchor Signalman Mark XII. 

VERSION l.lx: A new version of KAMASBBS 
is supplied. It is easier to modify to work 
with a wider range of auto-answer mpdems. 
For more details, see the article on 
KAMASBBS in this issue of The KAMAS 
Report. 



Enhancement 6 

VERSION l.Ox: Topic names are case 
sensitive when used by the TB (Topic Build), 
TM (Topic Mount), and TK (Topic Kill) 
options. 

VERSION l.lx: Now, topic names can be 
either uppercase, lowercase, or mixed and 
they are retained as specified. When you 
refer to the name later, you can use any 
mixture of upper or lower case. 



Enhancement 7 

VERSION l.Ox: In the leaf editor CTRL-V 
will take you to the last screen but it will 
not put the cursor on the last character. 
Similarly, CTRL-Z will take you to the first 
screen of the leaf, but will not put the 
cursor on the first character of the leaf. 

VERSION l.lx: Now, repeated CTRL-V f s take 
you to the last screen and put the cursor on 
the last character; repeated CTRL-Z f s take 
you to the first screen and put the cursor on 
the first character. 



If you have Version l.Ox and you want to 
order Version l.lx, you must be a registered 
customer. This means that you must have 
returned your signed registration card so 
that we have it on file. In this case, you 
can order the upgrade by sending #10.00 to 
cover shipping and handling. Be sure to 
specify your machine and include your name 
and shipping address. Also, give us the 
serial number on your Master System Disk. 
Shipping is via UPS Ground and takes 
anywhere from 1 to 7 days depending on how 
far away from Portland, Oregon you are. It 
also takes a day or two to process your 
order. No documentation is supplied so 
keep this copy of the newsletter for a list of 
differences in the new version. 

— AH — 

OTHER NEWS 

KAMAS has now been covered in two major 
articles in computer magazines. First, a 
feature article in the September issue of 
Byte magazine covers the language. Second, 
a review in the October 8, 1984 issue of 
Infoworld gave us high marks in all 
categories. The three-star review focused 
mainly on Outline Processing. 

Both articles generated a tremendous 
interest in KAMAS. We've been very busy 
keeping up with the demand. 

— AH — 

ADDING OPTIONS TO ROVE 

This article describes a way to extend ROVE 
mode by adding more functions through the 
U (User) option in ROVE. 

Listing 1 (a, b, c, d, e, f , g, and h) contains a 
program that you can Jex to extend the 
ROVE mode in KAMAS. The SUPERCOPY and 
OUTLINE OUT programs were written and 
submitted to the newsletter by Thomas 
Almy. Both were submitted only a couple of 
days after he got hold of KAMAS. WOW! 
Thanks, Tom. 

See the AUX ROVE HELP listing (lh) for info 
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on the options that are added. You can edit 
the AUX ROVE and AUXCMD Jex leafs to add 
your own extensions. 

Each listing (la thru If) shows one stem of 
the branch containing the auxiliary 
program. The first thing you should do is 
construct a tree with the following keys and 
structure: 

AUX ROVE 
AUXCMD 

TREE TRAVERSE 
OUTLINE OUT 

OUTPUT LOOP 
SUPERCOPY SUBROUTINES 
SUPERCOPY USER INTERFACE 
AUX ROVE HELP 

Then, edit in the leafs according to the 
listing for each stem. 

Jex the AUX ROVE stem to add all the 
functions to ROVE. You can do this in your 
AUTOJEX leaf by replacing the line "GT 
ROVE" with "AUX ROVE" K JEX. 

« AT » 



KAMASBBS IMPROVEMENTS 

Michael Galassi runs a version of 
KAMASBBS in Portland, Oregon. The number 
is 2 8 3 29 8 3; 'an acronym for that 

number to make it easier to remember is 
ATE-BYTE. The BBS has been operating 24 
hours/day using either an Anchor Mark XII 
modem or a Western Electric 212A modem. 

Michael has set up separate topic files for 
conversations on Sports, Computers, Human 
Sexuality, and Fiction. The Fiction topic is 
an online novel that callers join together in 
writing. 



The board is interesting in part because it 
runs on a 512K Semidisk in an Epson QX-10 
computer. The main message topic is 376K 
and has branches like the following: 



BBSMESSAGES , 
WELCOME 
SYSTEM INFO 
USERS 

Michael Galassi 
Fm AT on 84-09-27 
Fm AT on 84-09-27 /2 
Adam Trent 

Fm MG on 84-09-28 
Fm MG on 84-09-29 
MESSAGES TO ALL 
ADVERTISEMENTS 
USER'S GROUPS 
DISCUSSIONS 

Michael has done wonders in optimizing the 
code for the initial KAMASBBS from Version 
l.Ox. He has taken on a personal crusade to 
write the smallest possible RKAMAS (Remote 
KAMAS). Listing 2 (a, b, and c) contains 
several of his recent versions of BBS 
programs for KAMAS. Thanks, Michael. 

To run one of these, replace the KAMASBBS 
branch with the one you want. They all 
assume that you've set up a topic called 
BBSMESSAGES and that you've edited the 
WELCOME leaf to suit your tastes. See 
above for an example beginning skeleton for 
BBSMESSAGES. An example of the welcome 
message in the WELCOME branch of the 
BBSMESSAGES topic is shown in Listing 2d. 
These programs work only on the Kaypro 
and Epson versions of KAMAS. 

Currently, the WEBBS version (Listing 2a) is 
being run on Michael's system. WEBBS has 
been optimized for use with any "dumb" 
dual-rate, auto-answer modem such as the 
Western Electric 212A. BBS (Listing 2b) is 
similar to WEBBS but contains routines to 
initialize Hayes compatible modems. It is 
actually a cut down and speeded up version 
of KAMASBBS (Listing 2c). KAMASBBS is 
included in Version l.lx of KAMAS and 
replaces the Version l.Ox of KAMASBBS. 

If you plan to use either KAMASBBS or BBS, 
the initialization strings in INITMODEM 
must be changed depending on the modem 
you have. The strings in Listing 2e work 
for the specified modems. 

In the routine NEWCALLER, insert any 
topics that you want mounted when a user 
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logs on immediately before the command 
'"BBSMESSAGES TBUILD". See WEBBS for an 
example of this. WEBBS assumes that 
several topics exist and it mounts them 
(HUMAN SEXUALITY, COMPUTERS, and 
FICTION). 

To prevent users from getting access to the 
language, set a lock level of 1 on 
SYSTOPIC. To prevent people from 
renaming and/or deleting topic files, use the 
MARKRO command from SYSVOC on the first 
key in the topic. To preserve an orderly 
outline, you may want to use MARKRO on all 
the important stems in the topic. 

— AT — 



FROM THE SUPPORT LINE 

Here are some helpful tips and techniques 
that have come up during support calls. 

Serial Printers 

Some Kaypro owners use the Kaypro serial 
port for a printer. KAMAS uses this port 
for its telecommunications. In fact, 
KAMAS initializes this port for use with a 
modem when it is first invoked. Issue 2 of 
The KAMAS Report lists the serial port 
configuration that KAMAS sets up. This 
modem configuration conflicts with the 
default configuration of the NEC Spinwriter 
(and possibly other serial printers as well). 
The following commands added to the 
AUTOJEX leaf often init the serial port 
back to what the NEC wants to see. 



SYS SETHEX 

10 0 1 1 61 3 AA 5 47 4 

A LOOPS 6 WCP0RT0UT .LOOPS 
SETDEC 

We've tested this on a Kaypro II with a NEC 
Spinwriter 3510 and it works. In this case 
the baud rate on the NEC was set to 300. The 
default in KAMAS is also 300. If you run 
your Spinwriter at 600 or 1200 baud, you 
must add a SETBAUD command on the line 
after the SETDEC. Use either "600 
SETBAUD" to run at 600 baud or "1200 
SETBAUD" to run at 1200 baud. 



The explanation of the routine is a little 
complicated, but all you have to do is key it 
in. The ten numbers on the second line are 
all hexadecimal values. Each pair is a 
command to the serial port. Specifically, 
the pair 10 and 0 send a command of 10 to 
write register 0 on the serial port; the 
second pair 1 and 1 send a command of 1 to 
write register 1; the third pair 61 and 3 send 
a command of 61 to write register 3; the 
fourth pair AA and 5 send a command of AA 
to write register 5; and the fifth pair 47 and 
4 send a command of 47 to write register 4. 
All of these commands set the serial port to 
receive and transmit 7 data bits, 1 stop bit, 
and even parity. 

If the addition to your AUTOJEX leaf does 
not work or you are otherwise having 
trouble getting your serial printer to accept 
printing for KAMAS, you can try the 
following "permanent" patch to the file 
KAMAS.COM: 

1. Place your KAMAS Working System 
Disk in drive B. 

2. Place a CP/M Operating System Disk 
containing the file DDT.COM into 
drive A. Type CTRL-C to warm boot 
the operating system. 

3. Carefully, type in the following 
sequence of DDT commands. 
Boldfaced characters indicate what 
you type: 

A>DDT B: KAMAS. CON 

NEXT PC 
9000 0100 
-S8CB2 
8CB2 21 C3 
8CB3 58 C9 
8CB4 01 8C 
8CB5 46 . 
-GO 

A>SAVE 143 B: KAMAS. COM 

4. Your KAMAS Working System Disk in 
drive B is now ready for use. 

This patch disables the initialization of the 
serial port. Thus, the port would keep 
whatever properties it had prior to entering 
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KAMAS. Often, these properties are set by 
CP/M or by a utility you may be using. Note 
that this patch only works with Version l.lx 
of KAMAS. Do not try to use it on Version 
l.Ox. The patch can be used on any l.lx 
version (e.g., Epson QX-10, Kaypro, Morrow, 
or Osborne). 

Whether you use the AUTOJEX change or 
make the patch, you will probably not be 
able to run KAMASBBS software. If you 
want to run the bulletin board too, retain an 
unpatched version or a version without the 
AUTOJEX change for KAMASBBS use. 



Logging to a Printer 

If you are familiar with CP/M, you know 
that you can type CTRL-P at the A> prompt 
in CP/M to log all console activity to the 
printer. This CP/M CTRL-P is NOT the 
same as the CTRL-P that you type at the 
ROVE: prompt in KAMAS to log console 
activity to a printer. If both are active at 
the same time, you will get double 
characters printed for all output. 



Topic Sizes 

If you know you'll be using the OF (Output 
File) option in ROVE mode, be sure to leave 
room on Drive B for the file. The OF 
option converts the current branch in your 
topic file to a standard CP/M text file. 
Don't make your topic so big that it takes 
all the space on Drive B leaving no room for 
your CP/M text file to be output. This tip 
is especially useful for Kaypro II, Osborne 
I, and Morrow MD2 owners who have a 
limited amount of space for topics on drive 
B. 



More Space in Systopic 

As distributed, SYSTOPIC is almost full. 
There isn't much room to add fancy 
AUTOJEX commands or to extend ROVE 
mode through the U (User) option. Here are 
a few suggestions on what to delete to free 



up some space. Before you start deleting, 
make sure you are deleting from a Working 
System Disk. Save your Master System Disk 
so you can restore things if you need to. 

First, if you don't use the bulletin board, 
delete the entire KAMASBBS branch. This 
should free up quite a bit of space. 

Also, if you don't use the Jex branch 
programs SETDATE, MDUMP, DEBUG, and 
JEXBRANCH, you can delete them. 



TCOPY Utility 

There is an undocumented utility in 
SYSTOPIC called TCOPY. To execute this 
program, go to the key TCOPY and then type 
GJ (Go Jex) in ROVE mode. The TCOPY 
program asks for the name of the topic to be 
copied. Then, it prompts for the 
destination topic name and the size of the 
destination topic. The program then 
exhaustively re-indexes and copies the 
topic. The purpose of the program is to 
copy a topic to another, different-sized 
topic. You can make an existing topic 
larger or smaller this way. The program can 
take a long time especially on a large 
topic. Be sure that you have room for the 
new topic on the drive you specify; TCOPY 
abends if there isn't enough room. 

There is a more general copy program 
included in the AUX ROVE extension 
described in this issue. 

— AH — 



Note that in all the listings, the first line is 
the title of the stem. All subsequent lines 
should be typed in as the contents of the 
stem's leaf. 
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AUX ROVE - Jex this stem to add Auxiliary functions to ROVE's U option 
LANG SYS 

•PAGET : NEWPAGE TOGPRINT CRLFOUT TRUEWF . 

"OUTLINE OUT" KJEX ; Jex in Tom Almy's Outline Output program 

"SUPERCOPY SUBROUTINES" KJEX ; Jex in Tom Almy's Super Copy program 
"SUPERCOPY USER INTERFACE" KJEX 

1 NLT : NEWLINE 4 SPSOUT . 

•AUXOPS : NEWLINE "==== AUXILIARY OPTIONS FOR ROVE ====" STOUT 
NLT "? - Show this option list" STOUT 
NLT "K - Print Keys in Branch Below" STOUT 
NLT "T - Print Titles in Branch Below" STOUT 
NLT "F - Print FormFeed" STOUT 
NLT "0 - Print Outline Formatted" STOUT 
NLT "C - Copy a Topic Branch" STOUT 
NLT "P - Protect current stem as Read Only" STOUT 
NLT "D - Delete leaf of current stem" STOUT 
NLT "S - Set Page size, Line skip, or Indent" STOUT 
NLT "R - Return to ROVE" STOUT 
NEWLINE EXECSTAT 768 WAND W00= 

IFSO NLT "MORE HELP (N)?" STOUT NOYES 

IFSO "AUX ROVE HELP" KSHOW .IFSO .IFSO . 

•INKEY : WCIN DUPW WCOUT WCCVTUC . 

1 SETCMD : "(P - Page size, L - Line skip, I - Indent):" 
INKEY 
WOCASES 

■P ASCII WOCASE "AGE SIZE: " STOUT WOIN TO PGSIZE 
'L ASCII WOCASE "INE SKIP: " STOUT WOIN TO SKIP 
•I ASCII WOCASE "NDENT SIZE: " STOUT WOIN TO INDSIZE 
OTHERS BEEPOUT NEWLINE 

.WOCASES . 
ABEND VOC VMOUNT 

•REMCK : IOSTAT 2 WAND NOT W00= IFSO REMOTEVIOL .IFSO . 
ABENDVOC VUNMOUNT 
'AUXCMD KJEX 



Listing la - AUX ROVE Stem 



STOUT 



.WOCASE 
.WOCASE 
.WOCASE 
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AUXCMD - Auxiliary ROVE command 



•AUXCMD : NEWLINE 
LOOP 13 WCOUT 20 
WOCASES 
'? ASCII WOCASE 
•K ASCII WOCASE 
*T ASCII WOCASE 
ASCII WOCASE 
ASCII WOCASE 
ASCII WOCASE 
ASCII WOCASE 
•D ASCII WOCASE 
•S ASCII WOCASE 
'R ASCII WOCASE 
13 WOCASE 
27 WOCASE 
OTHERS 
.WOCASES UNTILT 



'F 
•0 
'C 
'P 



II _ 



SPSOUT 13 WCOUT 'AUX: STOUT INKEY 

" - HELP." STOUT AUXOPS FALSEWF 
" - KEYS." STOUT REMCK T06PRINT KEYS PAGET 

TITLES." STOUT REMCK TOGPRINT TITLES PAGET 
FORMFEED." STOUT REMCK 12 WCPRT TRUEWF 
OUTLINE." STOUT REMCK OUTLINEOUT TRUEWF 
COPY." STOUT SUPERCOPY TRUEWF 
PROTECT." STOUT MARKRO TRUEWF 
DELLEAF." STOUT DELLEAF TRUEWF 
SET " STOUT REMCK SETCMD TRUEWF 
" - ROVE." STOUT TRUEWF 
AUXOPS FALSEWF 

TRUEWF 
BEEPOUT FALSEWF 
.LOOP . 



II 



.WOCASE 
.WOCASE 
.WOCASE 
.WOCASE 
.WOCASE 
.WOCASE 
.WOCASE 
.WOCASE 
.WOCASE 
.WOCASE 
.WOCASE 
.WOCASE 



'AUXCMD SETDFENCE 'AUXCMD TOGO USERGO 
.SYS .LANG ROVE 



Listing lb - AUXCMD Stem 



TREE TRAVERSE - Universal KAMAS Tree Traversal Routine 

; Universal KAMAS tree traversal routine by Adam Trent 

'7D0WN : FLAGVAR ; flag is set if dropping to new lower level 

•UPCOUNT :WOVAR ; count if going to upper level 

'TRAVERSE : CLEAR UPCOUNT GD 7ENDLINK 
IFSO LOOP 

GN ? END LINK 
UNTILF 

GU 7ENDLINK 
UNTILT 

1 +T0 UPCOUNT 
.LOOP 

NOT 7ENDLINK IFSO CLEAR 7D0WN .IFSO 

ELSE 

RAISE 7D0WN 
.IFSO . 



Listing lc - TREE TRAVERSE Stem 
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OUTLINE OUT - By Thomas Almy 



LANG SYS 

; This program will query for printer or file output, and outline the 
; current branch using section numbers before each title. The Author 
; is Thomas Almy, who relinquishes all right to these programs to 
; Compusophic Systems, providing they are distributed without additional 
; charge to users of KAMAS. 

"TREE TRAVERSE" KJEX 
"OUTPUT LOOP" KJEX 

'7PRINT : FLA6VAR ; true if printing 

•7FILE : FLA6VAR ; true if file output 

32 • SAVEKEY :STVAR ; starting position 

32 'FILENAME : STVAR ; file name to use for file outputs 

'OUTLINEOUT : 
GETKEY TO SAVEKEY ; save out position 
NEWLINE "Show leaf (Y)?" STOUT YESNO TO 7LEAF 
NOT 7LEAF TO 7INDENT ; we will indent if leaf not shown 
NEWLINE "Use printer <N)7" STOUT NOYES TO 7PRINT 
7PRINT IFSO 

TOGPRINT CLEAR 7FILE 
ELSE 

NEWLINE "Use CP/M file (N)?" STOUT NOYES TO 7FILE 
7FILE IFSO NEWLINE " Name: " STOUT FILENAME STIN 
FILENAME STUC STARTLOG .IFSO 

.IFSO 

DO-OUTLINE ; do our thing 

7PRINT IFSO ; turn off printer or file output if necessary 

TOGPRINT 
ELSE 

7FILE IFSO STOPLOG .IFSO 
.IFSO 

SAVEKEY KG ; go to whence we came 



Listing Id - OUTLINE OUT Stem 
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OUTPUT LOOP - Universal Outline Output Routine 

; "Universal" printing routine by Thomas Almy 

•LEVEL :WOVAR ; nesting depth of outline 

20 'POSITION : WO ARRAY ; outline item number for each level 

•?LEAF : FLAGVAR ; set true to show leafs 

'7INDENT : FLAGVAR ; set true to indent the titles 

'PRINTLEAF : ; print leaf if asked 

?LEAF IFSO CRLFOUT 

LINCOUNT SHOWLEAF 

LINCOUNT NOT W0= IFSO NEWLINE CRLFOUT CRLFOUT .IFSO 
.IFSO . 

•DO-OUTLINE : 

CLEAR LEVEL CLEAR 7DOWN CLEAR POSITION 

; print major title 
NEWLINE GETKEY DUPW STLEN RMARG SWAPW WO- W02/ SPSOUT STOUT 
NEWLINE CRLFOUT 

; print title leaf 

PRINTLEAF 

; print rest of branch 

LOOP 

; go to next stem 
TRAVERSE 7ENDLINK UNTILT 

; adjust position 
7D0WN IFSO 1 +T0 LEVEL 1 LEVEL TO POSITION 
ELSE LEVEL UPCOUNT WO- TO LEVEL 
1 LEVEL +T0 POSITION 

.IFSO 

; stop if out of branch 
LEVEL W00= UNTILT 

; print outline section number 
NEWLINE LMARG SPSOUT 7INDENT IFSO LEVEL W01- W02* SPSOUT .IFSO 
LEVEL LOOPS IWO POSITION 0 WOOUTR 

IWO LEVEL NOT W0= IFSO '. STOUT .IFSO .LOOPS 
2 SPSOUT 

; print title 
GETKEY STOUT GETSUBT STOUT 
NEWLINE 

; print leaf 

PRINTLEAF 
.LOOP NEWLINE . 



sting le - OUTPUT LOOP Stem 
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SUPERCOPY SUBROUTINES - By Thomas Almy 
LANG SYS 

; SUPERCOPY is a version of TCOPY which copies branches (subtrees), 

; rather than complete topics. It will not create new topics. 

; It will maintain time/date stamps and formatting flags. 

; Branches may be copied within a single topic; the program requests 

; a new stem title in case of conflicts. 

'LEAFSIZE :W0VAR ; size of the leaf 

32 'OLDTOPIC :STVAR ; source topic name 

32 "NEWTOPIC :STVAR ; destination topic name 

32 'LASTOLDKEY : STVAR ; name of last source key 

32 ' LASTNEWKEY :STVAR ; name of last destination key 

32 1 NEWKEYNAME : STVAR ; name of new key 

32 'TEMPSTR :STVAR ; temporary string 

14 'TMPST : STVAR ; storage for date stamp 

64 'OLDSUBT : STVAR ; stem subtitle 

•NESTDEPTH :WOVAR ; nest depth into branch 

' 7SAMET0PIC : FLAGVAR ; true if Dest=Source topic 

; location of status flags for stem 
•CLRO CMDFIND DROPD 6 W0+ FETW • FLAGLOC :W0C0N 
•FLAGS :W0VAR ; mark flags for current stem 

•CUEOLD : NOT 7SAMET0PIC IFSO OLDTOPIC TBUILD .IFSO LASTOLDKEY KG . 
•CUENEWTOPIC : NOT 7SAMET0PIC IFSO NEWTOPIC TBUILD .IFSO . 
•CUENEWPOS : LASTNEWKEY KG . 
'INDENT : NEWLINE 5 SPSOUT . 

'PUTNEWLEAF : 7LEAF IFSO LEAFSIZE PUTLEAF .IFSO . 

•READOLD : NEWLINE "READING: " STOUT GETKEY STOUT 
GETSTAMP TO TMPST 
2 TMPST STLEFT TO DATEST 

13 4 STEP IWO 2 TMPST STMID +T0 DATEST 3 .STEP 

GETKEY TO LASTOLDKEY 

GETSUBT TO OLDSUBT 

FLAGLOC FETB TO FLAGS 

GETLEAF 

IFSO RAISE 7LEAF CUELEAF SWAPW DROPW TO LEAFSIZE 
ELSE CLEAR 7LEAF .IFSO . 

"7DUPNAME : ; ( — wf) 

GETTNAME TO TEMPSTR 

NEWKEYNAME KFIND IFSO ; found — may be trouble 

GETTNAME TEMPSTR ST= 

DUPW WFNOT IFSO CUENEWTOPIC .IFSO 
ELSE FALSEWF .IFSO . 

Listing If - SUPERCOPY SUBROUTINES Stem 
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1 WRITING : \*0D*\ ASCII WCOUT "WRITING: " STOUT . 

' WRITENEW : UPCOUNT LOOPS GU .LOOPS 
WRITING NEWKEYNAME STOUT 

NEWKEYNAME OLDSUBT 7DOWN IFSO T1D ELSE TIN .IFSO 
GETKEY TO LASTNEWKEY PUTNEWLEAF 

FLAGS 191 WAND FLAGLOC STOB ; set format marks except READONLY 
CLRO . ; ciest is never readonly 

Listing If - SUPERCOPY SUBROUTINES Stem (Continued) 



SUPERCOPY USER INTERFACE - By Thomas Almy 

'NBL : NEWLINE "???? " STOUT BEEPOUT . 
'CLKCMD :WOVAR 
' GETPARAMS : 

GETTNAME TO OLDTOPIC GETKEY TO LASTOLDKEY GETKEY TO SAVEKEY 
INDENT "Is Destination in Current Topic (N)?" STOUT NOYES IFSO 
RAISE 7SAMET0PIC OLDTOPIC TO NEWTOPIC ELSE 
LOOP INDENT "Destination Topic: " STOUT NEWTOPIC STIN 

NEWTOPIC TFIND UNTILT NBL "TOPIC NOT FOUND- TRY AGAIN" STOUT 
.LOOP .IFSO 
GETTNAME TO TEMPSTR 

LOOP INDENT "Destination Branch Key Name: " STOUT LASTNEWKEY STIN 

LASTNEWKEY KFIND GETTNAME TEMPSTR ST= WAND UNTILT 

NBL "KEY NOT FOUND IN TOPIC, TRY AGAIN" STOUT .LOOP 
INDENT "Insert Down (Y)?" STOUT YESNO TO ?DOWN . 

'ASKNAME : 

INDENT "Rename '" STOUT LASTOLDKEY STOUT '" to: " STOUT 
NEWKEYNAME STIN NEWLINE . 

'SUPERCOPY : NEWLINE "==== KAMAS BRANCH COPY by Thomas Almy ====" STOUT 
CLEAR 7SAMETOPIC CLEAR NESTDEPTH CLEAR UPCOUNT GETPARAMS 
NEWLINE "==== COPYING AND INDEXING TOPIC STEMS ====" STOUT 
LANGVOC VMOUNT SYSVOC VMOUNT 

'DATEGO CMDFIND DROPD 3 WO+ FETW TO CLKCMD ; save DATEGO— a.t. 
'NOOP TOGO DATEGO 

CUEOLD ; get to first without traversal 

LOOP READOLD CUENEWTOPIC 

7SAMETOPIC IFSO ASKNAME ELSE LASTOLDKEY TO NEWKEYNAME .IFSO 
LOOP 7DUPNAME UNTILF " — IS DUPLICATE NAME" STOUT ASKNAME .LOOP 
CUENEWPOS WRITENEW CUEOLD TRAVERSE 7ENDLINK ; go to next source stem 

UNTILT 

7DOWN IFSO 1 +TO NESTDEPTH ELSE NESTDEPTH UPCOUNT WO- TO NESTDEPTH .IFSO 

NESTDEPTH WOO= 
UNTILT 
.LOOP 

OLDTOPIC TBUILD SAVEKEY KG 

NEWLINE "==== BRANCH COPY DONE ====" STOUT 

CLKCMD MFATNFA NFATST TOGO DATEGO DATEGO . ; restore DATEGO — a.t. 

Listing lg - SUPERCOPY USER INTERFACE Stem 
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AUX ROVE HELP - Auxiliary functions via the U (User) option in ROVE 

These Auxiliary ROVE options add to the functionality of KAMAS and show how 
the ROVE menu-driven system can be extended by KAMAS programming. 

The K option prints all keys in the current branch. Formatting marks are 
shown as codes and indentation is used to show the outline structure. 

The T option prints all titles in the current branch. Indentation is used to 
show the outline structure. 

The F option simply prints a single FormFeed character to the printer. 

The 0 option will ask you if you want either printer or file output, and will 
then output an outline of the current branch using section numbers before 
each title. Indentation is not used and leaf formatting is obeyed. You can 
also opt to output only the titles without the leafs. 

The C option allows you to copy the current branch to another place in the 
current topic, or to another place in another topic. It will not create a 
new topic. It maintains time/date stamps and formatting marks. This option 
requests a new key name in cases of duplicate key names. 

The P option simply marks the current stem as read-only protected. 

The D option deletes only the leaf of the current stem and retains the title 
intact. Note that this delete does not affect the content of the Leaf 
Editor's Yank buffer. 

The S option allows you to set the following: 

P - Page size = number of lines that KAMAS counts before issuing 

a FormFeed to skip the perf during printing. 
L - Line skip = number of extra blank lines that KAMAS uses during 

formatted output. 0 is default. Set it to 1 for double spacing. 
I - Indent size = number of spaces to output per level of indentation 

during formatted output of an outline. 

The R option returns to ROVE from AUX. 



Listing lh - AUX ROVE HELP Stem 
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WEBBS - A mean Lean experiment for dumb modems (389 bytes) 

LANG SYS SETDEC 
'BAUD WO :W0VAR 

•SETBAUD : DUPW SETBAUD TO BAUDWO . 
'RCIN : TOGREMOTE WCRCV TOGREMOTE . 

•AWAIT : 1200 SETBAUD LOOP TOGREMOTE WCRCV TOGREMOTE 
WOCASES 

13 WOCASE TRUEWF .WOCASE 
10 WOCASE TRUEWF .WOCASE 

OTHERS 340 FETB WCPORTIN BAUDWO 
WOCASES 

300 WOCASE 1200 SETBAUD .WOCASE 
1200 WOCASE 300 SETBAUD .WOCASE 
.WOCASES FALSEWF 
.WOCASES UNTILT .LOOP . 

■NEWCALLER : 

343 FETB 337 FETB WCPORTOUT 337 FETB WCPORTIN 342 FETB WAND WOO 
IFSO 

CLSOUT 2 SETDRIVES 0 72 SETMARGINS 3 SETHELP 1 1 SETVIEW 
CLVC 'USER TO USERST CLTC CLPSTACK CLRSTACK 
"HUMAN SEXUALITY" TMOUNT 'COMPUTERS TMOUNT 'FICTION TMOUNT 
•BBSMESSAGES TBUILD AWAIT 'WELCOME KSHOW ROVE 
.IFSO . 

•BBS : 'NEWCALLER TOGO REMOTEGO TOGREMOTE ROVE . 
'BBS SETDFENCE ROVE 



Listing 2a - WEBBS Stem 
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BBS - A mean Lean experiment 



LANG SYS 

•RCIN : TOGREMOTE WCRCV TOGREMOTE . 
1 ENDCMD : 13 WCXMT RCIN DROPW . 

• INITMODEM : 300 SETBAUD 1 ATE0V0Q0F1 S2=255S0=1 STOUT ENDCMD . 

•AWAIT : 300 SETBAUD 65 WCXMT 84 WCMXT ENDCMD LOOP RCIN 
WOCASES 

49 WOCASE 300 SETBAUD TRUEWF .WOCASE 
53 WOCASE 1200 SETBAUD TRUEWF .WOCASE 
OTHERS FALSEWF 
.WOCASES UNTILT .LOOP 

500 LOOP W01- DUPW W00= UNTILT .LOOP DROPW . 
1 NEWCALLER : 

343 FETB 337 FETB WCPORTOUT 337 FETB WCPORTIN 342 FETB WAND W00= 
IFSO 

CLSOUT 2 SETDRIVES 0 72 SETMARGINS 3 SETHELP 1 1 SETVIEW 
CLVC 'USER TO USERST CLTC CLPSTACK CLRSTACK 
•BBSMESSAGES TBUILD AWAIT 'WELCOME KSHOW ROVE 
.IFSO . 

'BBS : LANGVOC VMOUNT 'NOOP TOGO REMOTEGO TOGREMOTE INITMODEM 
•NEWCALLER TOGO REMOTEGO ROVE . 

'BBS SETDFENCE ROVE 



Listing 2b - BBS Stem 
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KAMASBBS 



- KAMAS (tm) Bui Let in Board System 



LANG SYS 

; The following should work for the Kaypro and Epson QX-10 computers 
•NOCARRIER? : 343 FETB 337 FETB WCPORTOUT 337 FETB WCPORTIN 

342 FETB WAND W00= . 
'BBSFAILURE : ABEND 

'DELAY : LOOP W01- DUPW W00= UNTILT .LOOP DROPW . 
•RCIN : TOGREMOTE WCRCV TOGREMOTE . 
•CMD : 13 WCXMT 4000 DELAY . 

•FLUSH : CMD 300 SETBAUD 65 WCXMT 84 WCXMT CMD . 

; Delete the X1 in the below init string if you have a Hayes Smartmodem 300 
•INITMODEM : FLUSH 1 ATE0V0Q0M0F1 S2=255 S0=1 X1 STOUT CMD . 
'AWAIT : FLUSH LOOP RCIN 
WOCASES 

49 WOCASE 300 SETBAUD TRUEWF .WOCASE 
53 WOCASE 1200 SETBAUD TRUEWF .WOCASE 
OTHERS FALSEWF 
.WOCASES UNTILT .LOOP 800 DELAY . 
'NEWUSER : CLVC 'PUBLIC TO USERST CLTC . 

'NEWCALLER : NOCARRIER? IFSO 0 72 SETMARGINS 3 SETHELP 1 1 SETVIEW 

NEWUSER CLPSTACK CLRSTACK 'BBSMESSAGES TBUILD MARKRO AWAIT 

•WELCOME KSHOW MENU .IFSO . 
'BBS : NEWLINE "==== KAMASBBS" STOUT NOCARRIER? 

IFSO LANGVOC VMOUNT 'NOOP TOGO REMOTEGO CLVC 
"...AWAITING FIRST CALLER" STOUT NEWLINE 
TOGREMOTE INITMODEM 'NEWCALLER TOGO REMOTEGO MENU 

ELSE BBSFAILURE .IFSO . 
■BBS SETDFENCE 
BBS .SYS .LANG 



Listing 2c - KAMASBBS Stem 



WELCOME - You have reached ATE-BYTE, an RKAMAS. 

If you don't know what to do, type a question mark. When you are done just 
hang up. 

System Operator 

Listing 2d - WELCOME Stem 



Hayes Smartmodem 1200 
Hayes Smartmodem 300 
Anchor Signalman Mark XII 
U.S. Robotics Password 



' ATE0V0Q0M0F1 X1 S2=255S0=1 
' ATE0V0Q0M0F1 S2=255S0=1 
'ATE0V0Q0F1S2=255S0=1 
' ATE0V0Q0M0F1 S2=255S0=1 



Listing 2e - Initialization Strings 
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